﻿Imports System.Data.SqlClient
Imports System.Configuration
Imports DLLDungChung
Imports clslaycauhinhmay

Public Class frm_Login

    Dim dem As Integer = 0
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_ok.Click
        Dim cmd As New SqlCommand("sp_Login", conn)
        cmd.CommandType = CommandType.StoredProcedure

        cmd.Parameters.AddWithValue("@tk", txt_taikhoan.Text)
        cmd.Parameters.AddWithValue("@mk", txt_matkhau.Text)

        Dim kq As Integer = cmd.ExecuteScalar
        If kq = 1 Then
            dangnhap = txt_taikhoan.Text
            frm_quanly.Show()
            Me.Hide()
            txt_taikhoan.Clear()
            txt_matkhau.Clear()

        Else
            lb_thongbao.Text = "thông tin đăng nhập không đúng"
            dem += 1
            If dem = 3 Then
                MsgBox("Đăng nhập sai 3 lần để tiếp tục đăng nhập hãy khởi động lại chương trình")
                Me.Close()
            End If
        End If
    End Sub
    Sub ktra()
        If My.Computer.Registry.GetValue(
   "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", Nothing) <> "" And My.Computer.Registry.GetValue(
   "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", Nothing) <> "hethan" Then
            lbl_TBBanQuyen.ForeColor = Color.Blue
            lbl_TBBanQuyen.Text = "Hết hạn sử dụng vào ngày " & MaHoaDuLieu.giaima(My.Computer.Registry.GetValue(
   "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", Nothing))
            cmd_ok.Enabled = True
        ElseIf My.Computer.Registry.GetValue(
   "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", Nothing) = "hethan" And MaHoaDuLieu.mahoa(My.Computer.Registry.GetValue(
   "HKEY_CURRENT_USER\Software\AppStore", "banquyen", Nothing)) = "" Then
            lbl_TBBanQuyen.ForeColor = Color.Red
            lbl_TBBanQuyen.Text = "Hết hạn dùng thử"
            cmd_ok.Enabled = False
        Else
            If My.Computer.Registry.GetValue(
"HKEY_CURRENT_USER\Software\AppStore", "banquyen", Nothing) = "" Then
                lbl_TBBanQuyen.Text = "Bạn chưa đăng ký bản quyền"
                lbl_TBBanQuyen.ForeColor = Color.Red
                cmd_ok.Enabled = False
                Exit Sub
            Else
                If MaHoaDuLieu.giaima(My.Computer.Registry.GetValue(
        "HKEY_CURRENT_USER\Software\AppStore", "banquyen", Nothing)) = 1 Then
                    lbl_TBBanQuyen.Text = "Phần mềm đã có bản quyền"
                    lbl_TBBanQuyen.ForeColor = Color.Blue
                    cmd_ok.Enabled = True
                Else
                    lbl_TBBanQuyen.Text = "Bạn chưa đăng ký bản quyền"
                    lbl_TBBanQuyen.ForeColor = Color.Red

                End If
            End If

        End If

    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_cancel.Click
        Me.Close()
    End Sub

    Private Sub frm_Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conn.Open()
            If cauhinhmaytinh = "" Then
                laycauhinhmay()
            End If
            If My.Computer.Registry.GetValue(
       "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", Nothing) <> "" And My.Computer.Registry.GetValue(
       "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", Nothing) <> "hethan" Then
                If Date.Now >= MaHoaDuLieu.giaima(My.Computer.Registry.GetValue(
      "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", Nothing)) Then
                    My.Computer.Registry.SetValue(
           "HKEY_CURRENT_USER\Software\AppStore", "thoigianfree", "hethan")
                End If
            End If
            ktra()
    End Sub

    Private Sub cmd_DangKiBQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_DangKiBQ.Click
        frm_dangkybanquyen.Show()
        Me.Enabled = False
    End Sub
End Class
